home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / aiue.dir / 00037.ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  563 b   |  22 lines
  1. on mouseUp
  2.   global taidata, taidataj, sdata, tj, moji
  3.   set taidata to EMPTY
  4.   set taidataj to EMPTY
  5.   set sdata to EMPTY
  6.   set moji to "ﾃ窶,ﾃ窶ｰ,ﾃﾃ"
  7.   delete line 1 of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  8.   if tj = 1 then
  9.     put EMPTY into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  10.     tgyou(moji)
  11.     if the number of items in taidata = 1 then
  12.       put "Nothing" into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  13.     end if
  14.   else
  15.     put EMPTY into field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  16.     jgyou(moji)
  17.     if the number of items in sdata = 1 then
  18.       put "Nothing" into field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  19.     end if
  20.   end if
  21. end
  22.